home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / prgtools / pbvl010.zip / WINDEMO4.BAS < prev    next >
BASIC Source File  |  1994-02-10  |  2KB  |  68 lines
  1. '┌─────────────────────────────────────────────────────────────────────────┐
  2. '│    FILE: WINDEMO4.BAS                                                   │
  3. '│ PURPOSE: PB/VISION(tm) LITE Example Program                             │
  4. '├─────────────────────────────────────────────────────────────────────────┤
  5. '│ For instant help on any PB/VISION(tm) keyword, place the cursor on that │
  6. '│ keyword and press <CTRL-F1>.  The PB/VISION(tm) index can be accessed   │
  7. '│ by pressing <SHIFT-F1> twice.  The file "PBVLITE.PBH" _must_ be in the  │
  8. '│ same directory as the PowerBASIC IDE (PB.EXE) for this feature to work  │
  9. '│ properly.                                                               │
  10. '└─────────────────────────────────────────────────────────────────────────┘
  11.  
  12. '       ==================================================
  13. '       BE SURE TO RUN "DEMO.EXE" FOR INFORMATION ON OTHER
  14. '       PowerBASIC 3.0 TOOLS FROM DSE SOFTWARE PUBLISHING.
  15. '       ==================================================
  16.  
  17. %ISPBU = 0
  18.  
  19. $INCLUDE ".\WINDOW.BI"
  20. $INCLUDE ".\EVENT.BI"
  21.  
  22.     DEFINT A-Z
  23.     $DYNAMIC
  24.  
  25.     DIM Handle%(1 TO 25)
  26.  
  27.     APPTITLE &HCF, "WINDEMO4.BAS - A PB/VISION(tm) LITE DEMO - PRESS <ESC> TO QUIT"
  28.  
  29.     APP.GraphicsMode = 1
  30.  
  31.     APPINIT
  32.  
  33.     winFlags = %SHADOW
  34.  
  35.     FOR H% = 1 TO 25
  36.  
  37.         kolor = INT(RND*256)
  38.  
  39.         Handle(H%) = WINOPEN (5, 32, kolor, 1, kolor, "", kolor, winFlags)
  40.  
  41.         WINPRINT Handle(H%), 2, 10, -1, "PB/VISION(tm)"
  42.         WINPRINT Handle(H%), 3, 2, -1, "The World's Greatest Toolbox"
  43.         WINPRINT Handle(H%), 4, 7, -1, "for PowerBASIC 3.0"
  44.  
  45.         WINSHOW Handle(H%), INT(RND*20)+1, INT(RND*47)+1, 5, 32
  46.  
  47.     NEXT
  48.  
  49.     WHILE INKEY$ = ""
  50.  
  51.         H% = INT(RND * 25) + 1        ' <= PICK A RANDOM WINDOW HANDLE
  52.  
  53.         WINREFRESHMODE 0            ' <= DISABLE REFRESH FOR A MOMENT
  54.  
  55.         WINMOVE Handle(H%), INT(RND*20)+1, INT(RND*47)+1
  56.  
  57.         WINREFRESHMODE 1            ' <= TURN REFRESH BACK ON
  58.  
  59.         WINMAIN Handle(H%)            ' <= BRING A WINDOW TO THE TOP
  60.  
  61.     WEND
  62.  
  63.     FOR H% = 1 TO 25
  64.         WINCLOSE Handle(H%)            ' <= CLOSE WINDOWS IN ORDER OF LEVEL
  65.     NEXT
  66.  
  67.     APPCLOSE                        ' <= SHUT DOWN PB/VISION
  68.